home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS203B.dsk / SETCACHE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  784b  |  25 lines
  1. 10  PRINT : PRINT  CHR$(4);"BLOAD CACHE,A$2000"
  2. 20  HOME 
  3. 30  PRINT "Diversi-Cache Set-Up"
  4. 40  PRINT : PRINT "1 - Cache Drive 1 Only"
  5. 50  PRINT : PRINT "2 - Cache Drive 2 Only"
  6. 60  PRINT : PRINT "3 - Cache Drives 1 and 2"
  7. 70  PRINT : PRINT "Enter Selection (1..3) ";
  8. 80  GET A$: PRINT :I =  VAL(A$)
  9. 90  IF I <1  OR I >3  THEN  GOTO 20
  10. 100 I = I -1
  11. 110  IF I = 2  THEN I = 128
  12. 120  POKE 8195,I
  13. 200  PRINT : PRINT "ENTER BUFFER SIZE (0..800)K"
  14. 210  INPUT I
  15. 220  IF I <0  OR I >800  THEN  GOTO 200
  16. 300 I =  INT(I) *2
  17. 310 H =  INT(I/256)
  18. 320 I =  INT(I -(H *256))
  19. 400  POKE 8196,I
  20. 410  POKE 8197,H
  21. 490  ONERR  GOTO 600
  22. 500  PRINT : PRINT  CHR$(4);"BSAVE CACHE,A$2000,L$FFA": REM   CHANGE L WITH UPDATES
  23. 510  PRINT "DONE"
  24. 520  END 
  25. 600  PRINT "UNABLE TO WRITE": PRINT "CHECK WRITE PROTECT"